#!/usr/bin/env perl

use utf8;
use strict;
no warnings 'experimental::smartmatch';
use 5.010001;

while(<>){
	last if /quit|exit|\A\n/i;
	chomp;
	given($_){
		when(! /\A\d+\Z/){
			say "Input Error";
		}
		when($_ % 3 == 0){
			say "Fizz";
			continue;
		}
		when($_ % 5 == 0){
			say "Bin";
			continue;
		}
		when($_ % 7 == 0){
			say "Sausage";
		}
#		default {
#			say "I don't know you input ....";
#		};
	}
}

print "Program exit ...\n";